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FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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a2Q00000000 
aca 22 
aa 22 
aa aa 
aa eae 
aa ee 
Sa aa 
AQAQAAAAABaAAaAaaAaAGa 
vaToY—Y=T-t- 1-1-1 1-1-1 - 1-1) 
3232232223333 333 
33333333333333 
33 
-— 
33 
3223232233233 22 
33333333333333 
OOOSCSCOOOOCOO 
SOOSCOOOCOCOO 
co oo oo 
so 0 6SooO oo 
oo oo bo 4 
oo oo oO 
oo oo 63c 
oo oo oo 
ODOCCCCSOOCOO 
SOOCSCOOCOCOO 
mun mnwmw 
mw Mn 
nw mw ww 
nw mun ww 
maw wm mm 
nw mw ww 
mw muy WU 
mw Valval seiciadia 
MUNA wun 
MANN wu 
acaooca ao 
aa a oc or 
aa ee ca 
ax eceaca 
aa eccac 
an ca 
aa ca 
add 44:4 4-4: 4-4:4:4-4° 4 
aa 4.4 4:44: 4: 4°4-4- 4-4-4 
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Ss ps 88 
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wu bare 
ww Ww 
WU ww 
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ov ww 
Payer ww 
Paya) ww 
ov ww 
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“nw Munn 
Bw nuunw 
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nw nw “nw 
nw nw wn 
“nw nw wn 
nn nw mn 
nynnn mn 
nnun an 
=o —_—— 
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; Detailed Current Edit History 
RSOUS wt = CONVERT 3 ASCII CHARS INTO ONE WORD RADIX=-50 VALUE 


D1 
; FORTRAN COMPATIBILITY = ASCII TO RADIX 15-SEP-1 oR 5e83¢ y AX/VMS Macro V04-00 Page 1 


6-SEP-19 EPORRIL. SRCJCOMRSOWD .MAR; 1 (1) | 
~-TITLE COMS$R50WD 3 viene Syl - ASCII TO RADIX-50 CONVERS! 
IDENT = /1-004/ ; File: COMRSOWD.M 


=MARBAARAABAAAAAAAAASASASLALEALASALESALALASASALSSS ASSESSES ERA SAREE ASAE RES R SSS SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


** ae 
** ar 
*® ® 
** ® 
*® ® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
ft ONLY IN. ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER + 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. * 
** ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
s® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: CORPORATION. ‘ 
** ® 
** * 
** tr 
*® cr 
** ® 
** * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LRRBRRARRAARASLARASAAAAARASELAREEARARESASASERARRSEARA RARER RRASRRAERRAS RSS SE SY 


fAeELarts FORTRAN COMPATABILITY LIBRARY 
"ABSTRACT: 


COMS$SR50WD_R6 per tores conversion of 3 ASCII characters to 1 word. 
It is used by FORTRAN compatibility routines RAD5SO and 1heps0" 


VERSION: 0 
HISTORY: 


AUTHOR: 
Peter Yuo, 12-Sep-77: Version 0 


MODIFIED BY: 
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Coooooooo 
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COMSS$R50WD 
1-004 


— 1 
; FORTRAN COMPATIBILITY = ASCII TO RADIX 15-SE 
HISTORY ; Detailed Current Edit History 6=SE 


000 50 -SBTTL HISTORY 

3 

0 8 2g ; Edit History for Version 01 

00 2 : 
Bah 5 3 

00 56 ; 00- _ Define formal for 

0000 57 ; 00-07 = Make PSECT be FePcoM 
0000 58 ; 0-8 = Bug fix for RADSO. 
0000 59 ; 0-9 = Another bug fix for 
0000 60 ; 1-1 = Break poeyt . OMSASC 
0000 61; - ro 
0000 6 ; EOMSIRAD O-r 
0000 65 ; 

0000 64 ; 1-005 - Update sooreignt not 
0000 65 ; 1-003 = Add "|" T dir 
0000 66 ; 1-004 = BlankS were not bein 
0000 of ; wet routine did ‘. 
0000 68 ; seetit’ ed. Recode 
0000 69 ; SPR 11-26803 SBL 31 


P=1984 23:48:32 
eats yi 0:53:21 l 
; Detailed Curre 


of ASCRS5O 


no access v 
fuga TNH 5-J 
= an = 
RAD5SO. JMT 9-Jan- 


AX/VMS Macro V04-00 
FORRTL.SRCIJCOMRSOWD.MAR; 1 


nt Edit History 


0-03 Clear RADIX_VALUE *. i ere in R50WD_R 


R6 
io. TNH 5=Jan-78 
an-78 


77 


R50 inte 25 meenen: 


utine R 
outine TRADSO 


ice. JBS 16-NOV-7 
ective. JBS 21-DE 
counted as chara 
stop at first no 
to conform with PD 
-0¢t-1979 


COMS$R50WD = common ASCII to omy conversion routine 


C-78 
cters converted. 
“1 gaa char as 


Pe 


Page (5) | 


RS | Pa a ee a hn ee ca hoo & 


“COMSSRSOWD MPATIBILITY = ASCII TO RADIX 15-SEP-1984 AX/VM " 
“$2066 Hee nee Rae er SE=- 198s 10:58:21 EPORRTL.SREDCOMRSOMD.maR;1 "29° (3) 


~SBTTL DECLARATIONS 


“oO 


; INCLUDE FILES: 

3; EXTERNAL SYMBOLS: 
-DSABL GBL 
3; MACROS: 


; PSECT DECLARATIONS: 


0000 -PSECT _F4PCOMPATSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT 


; EQUATED SYMBOLS: 


; OWN STORAGE: 


COOOOOOO OWDWODOOWOOOO NNN 
NOUS WN OC OONO UE WO OONOUE Wh 
. 


c-- - TF ee ————EEEeEEEeeee 


G 1 
_COMBSRSOUD ; FORTRAN COMPATIBILITY = ASCII TO RADIX 15-SEP-19 23:4 2 VAX/VMS Macro v04-00 Page 4 
1-004 COMSSR5OWD_R R6 = CONVERT 3 ASCII CHARS IN 6-SEP=-19 $3; gg: 3 FPORRTL. SRCJCOMRSOWD.MAR; 1 ° (4) 
$008 199 -SBTTL COMSSR50WD_R6 = CONVERT 3 ASCII CHARS INTO ONE WORD RADIX-50 VALUE 
331 
| $60 198 {FUNCTIONAL DESCRIPTION 
8000 108 | sewrivvete vt 
3 orithmic steps: 
| 0000 106 ta tialization. 
0000 107 ; REM CHAR IN WORD = 3 (3 radix50 chars/word) 
0000 108; 2) If TCHARS_REM - 1) <0 then (CURRENT CHAR = . & ge to to 
0000 109; step 5 fo fil up he rest of the word) 
464 110 ; otherwise (CURRENT_CHAR = CHAR(NEXT_INPUT bot TION), 
j 000 111; NEXT_INPUT_POSITION = NEXT_INPOT _POSITION * Ws 
0000 36 : 3) Get the c correspondin “radix-50 value 
0000 113 ; a. If ASCIIC'A') = SCII (CURRENT CHAR) =< ASCII('Z") then 
0000 114 ; CURRENT_CHAR = ASCII(CURRENT_CRAR) = 100(octal 
0000 115; b. If ASCIT('O') =< ASCII(CURRERT_CH NAR) =< ASCIIC'9") then 
| 0000 116; CURRENT_CHAR = ASCII (CURRENT_CRA R) = 22(octal) 
0000 +117; c. If ASCIT(CURRENT_CHAR) = ASCTIC® *) then 
0000 118 ; CURRENT CHAR = ASCII(' ') = 40(octal) 
0000 119 ; d. If ASCIT(CURRENT_CHAR) = ASCII('$") then 
0000 120 ; CURRENT_CHAR = ASCII('$") = 11 (octal) | 
0000 121; e. If ASCIT(CURRENT CHAR) = ASCII('.') then 
0000 122; CURRENT_CHAR = ASCII('.') = 22(octal 
0000 123; t. i none “of the above then bereinaens 
0000 124; ADD_CO 
| 0000 123 3: 4) KCTUAL CHAR_COUNT = ACTUAL_CiHSAR_COUNT + 1 
0000 126 ; ACCUM: 
0000 127 ; 5) RADIX_VALUE = RADI¥ gt 4 * qutoctat! + CURRENT_CHAR 
0000 128; 6) If (CRARS_REM = CHARS > 0 THEN go back to step 2 | 
0000 129; 7) return with the sore a RADIKCVLAUE 
| 0000 130 == | 
0000 133 
0000 132 COMSSR5O0WD_R6:: | 
0000 133; oo ee ; 
0000 134 ; Initialization 
0000 135; 
0000 136 
56 03 00 0000 137 MOVL #3, R6 R6 = CHARS_REM_IN_WORD = 3 
51 D4 0003 138 CLRL R1 : ; cleat RADIRX_VACUE™ | 
0005 139 
0005 140; 
0005 141 ; Clear eg _ 
0005 146 : If (CHARS_REM = =< 0 then ge oy gChar = 0, go to ACCUM to fill 
0005 143; the t of the word) 
0005 144 ; else (CURRENT_CHAR = CHAR aeexT? INPUT POSITION) 
Bape 13? 3 NEXT_INPUT_POSITION = NEXT_INPUT_POSITION + 1) 
53 p& 0005 147 AGAIN’: CLRL R3 : clear CURRENT CHAR 
55 D7 0007 148 DECL R5 ; CHARS_R = CRARS REM = 1 
46 19 0009 149 LSS ACCUM : branch t e fiLt up the rest et _the word 
53 82 9A 000B 150 MOVZBL (R2)+, R3 3 CURRENT. “CHAR = next inpu 
QOOE 151 3 and advance NEXT_INPUT PPOSTTION 
| O0E 136. 
OOE 15: : 
| OOE 154 ; Get Bie h: es crate RADIX-50 value 
OOOE 155; a. f ASCL (cu RENT_CHAR) =< ASCL I(' ') then go to SPACE 
} 
| 
bs. 


Oo 
ao 


ere eee eS a 


H 7 
COMS$R50WD ; FORTRAN COMPATIBILITY = ASCII TO RADIX 15-SEP-1984 AX/VMS Macro v04-00 Page 5 | 
1-006 COMSSR5OWD_R6 = CONVERT 3 ASCII CHARS IN 6=SEP- 71984 9; 38: 34 FORRTL.SRCICOMRSOWD.MAR;1 (4) | 
POE 1 § ; b. If ASCIICCURRENT_CHAR) > ASCII('Z') then terminate scan | ‘ 
| E 157 ; c. If ASCIICCURRENT CHAR) < ASCII('A') then go to CHECK_NUMBER ‘ 
ObE 1 5 ; d. current char is A-Z, so CURRENT_CHAR = CURRENT_CHAR = 100(octal) ° 
| QOOE 159; 90 to ACCUM | : 
| QOOE 160 ; CHECK_NUMBER: ; 
QOOOE 161 ; e. If-ASCII(CURRENT_CHAR) < ASCII('0') then go to CHECK -DOLLAR ; 
OOOE 166 3 f. If ASCIICCURRENT-CHAR) > ASCII(' a _tnen erminate ; 
| QO00E 163: g. current char is 0-9, so CURRENT_CHAR = CURRENT_ CHAR = 22(octal) ; 
QOOOE 164; go t Ty ry : 
QOOE 165 ; CHECK_D 3 
| 443 198 Ss Me: wy ASCH? <CURRENT CHAR) = ASCII('$") then (CURRENT ee,” 33(octal), : 
QOOE 168 ; i. If ASCIICCURRENT_CHAR) = ASCII('.') then (CURRENT CHAR = 34(octal), ° 
QOOE 169; go to ACCUM) 
QOOE 170; 
OOOE 171 
20 53 91 OODE We CMPB R3, #*A/ / ; compare CURRENT_CHAR with space 
3A 613 «0011 += «#17 BEQL SPACE 3 a space character? 
GF 19 0013 174 BLSS ILLEGAL 3; mot a RADSO chara 
5A 8F 53 91 0015 175 CMPB R3, #*A/Z/ 3; compare CURRENT. chiA “with sf 
49 14 0019 176 BGTR hy 3 not a RADSO ch oracts 
41 8F 53 91 0018 177 CMPB R #*A/A/ ; compare CURRENT_CHAR ruith ‘A’ 
09 19 QOO1F 178 BLSS CHECK_NUMBER ; branch to check if CURRENT_CHAR is 
0021 179 3 a_number 
53 00000040 8F (C2 boSe 189 SUBL #*0100, R3 3 =. = Sprrespenare radix-50 value 
25 11 0028 186 BRB ADD_COUNT : branch to add acutal count 
002A 183 CHECK_NUMBER: 
30 53 91 QOO2A 184 CMPB A/0 ; compare CURRENT_CHAR with ‘0* 
0A 19 O002D 185 BLSS Eneck, =DOLLAR ; go to check for™'$' 
39 53 91 OO2F 186 CMPB ; compare CURRENT_CHAR with ‘9° 
30 14 0032 £187 BGTR Tere GaL 3; Not a RADSO character 
> Bey} Bee ie 4 SUBL #*022, R3 3 get corresponding radix-50 value 
: for 0- 
16 11 0037 #190 BRB ADD_COUNT ; branch to add actual count 
0039 191 CHECK_DOLLAR: 
24 53 91 0039 192 CMPB R3, #*A/$/ ; compare CURRENT_CHAR with ‘$' 
05 12 O003C 193 BNEQ Cie ck PERIOD 3: branch to check for period 
535 1B 00 OQO3E 194 MOVL “0337 R3 : CURRENT CHAR = corresponding 
0041 195 : radix-50 value 
oc 11. 0041 196 BRB ADD_COUNT 3; branch to wrt to ACUTAL_COUNT 
0043 197 CHECK_PERIOD: 
2E 53 91 0043 198 CMPB R3, #*A/./ 3 compare CURRENT_CHAR with °.' 
1C is 4 199 BNEQ ILCEGA L z not a RADSO character 
Ss. «2 04 200 MOVL #*°054, R3 ; pe: correspondin radix" 30 value 
02 11 0048 201 BRB ADD_ COUNT ; Branch to add ACTUAL_COUNT 
Rhee sos SPACE: 
53 D4 004D 20 CLRL R3 ; CURRENT_CHAR = 0 
O04F 204 
Baer 205 
O4F 206; 
004F 207 ; Accumulate ACTUAL_COUNT 
O04F 08 ; 
O04F 09 
Bae 10 ADD_COUNT: 
50 D6 OQO04F 11 INCL RO ; ACTUAL_COUNT = ACTUAL_COUNT + 1 
0051 12 
| 


(4). 
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Page 


o V04-00 
COMRSOWD.MAR; 1 


; Accumulate ACTUAL_VALUE 


COMS$$R50WD 
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PRC eee eT eee eee ere ele ele eet ele eer er eT ey er er eh ee ee 2 ee er es eT ee es os es eee 


VALUE + CURRENT CHAR 


VALUE _+ CURRENT_CHAR 
VALUE 


VALUE 


R 


woowdo 
ror vo 


MOURN) 
oOnown 


Cet ol | ee 
MAN 


- =- 
mw 


DIX_VALUE + CURRENT_CHAR 
= RADIX_VALUE 
_VALUE 


K 
o back to process more char 


: urn with R1 


; Illegal character, terminate scan 


; Return with R1 = RADIX 


; decrement CHARS_REM_IN_WORD by i 


; RO = ACTUAL_COUNT 


; RO = ACTUAL_COUNT 


; If any more char to process go back, otherwise return 


| 
| 
| 
| 
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J 1 | 
| COMSSR50WD ; FORTRAN COMPATIBILITY = ASCII TO RADIX 15-SEP-1984 23:48:32 VAX/VMS Macro V04-00 P 7 | 
Symbol table g8Ep=1 984 0:88:21 CFORRTL.SRCJCOMRSOWD.MAR; 1 et (4). 
0000051 R 01 
ADD COUNT QOGOO4F R 01 
TN 0000005 R 01 
CHECK _DOLLAR 0000039 R 01 
ms O00002A R 01 
0000043 R 01 
$ 0000000 RG = 1 
L 0000064 R 01 
ACE 0000040 R 01 
| 
eceeneeeccoceesa + 
' Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_F 4PCOMPATSCODE 00000067 ¢ 103.) O01 ¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE 
doeeeceecea we Cee nee eee Omen 
: Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization | 33 00:00:00.09 00:00:00.96 
ommand processing 116 00:00:00.50 ee et oH 
Pass 1 67 00:00:00.53 00:00:02.34 
Symbol table sort 0 00:00:00.00 00:00:00.00 
ass 56 00:00:00.47  00:00:01.82 
Symbol table output 2 ae Sb SL: 00:00:00.02 
Psect synopsis output 3 00:00:00.02  00:00:00.02 
Cross-reference output 0 9 Sha es 8 4 00:00:00.00 
Assembler run totals 279 00:00:01.6 00:00:08.45 


2859 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 9 non-local and 0 local symbols. 


| 
| 
| 
| 
| 
The working set Limit was 750 popes 
238 source Lines were read in Pass 1, produc ing 8 object records in Pass 2. | 
ma | 

| 

| 


0 pages of virtual memory were used to define cros. 
peewee ww eee ecw emcee eee ence + 
! Macro Library statistics : 
terse e eee ee ere see ee Cem a eee 

Macro Library name Macros defined 

-$255$D0UA28: CSYSLIBISTARLET.MLB; 2 0 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESS1ON/DIJ SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:COMRSOWD/OBJ=OBJ$:COMR5SO0WD MSRC$:COMRSOWD/UPDATE=(ENHS$: COMRSOWD) 
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